home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 225 / 225.d81 / none shall pass (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  23 lines
  1. 0 deffnr(r)=rnd(.)*r+1:goto09
  2. 1 iflen(z$)<=wthenprintz$;:return
  3. 2 fori=wto.step-1:ifmid$(z$,i,1)<>" "thennext
  4. 3 printleft$(z$,i):z$=mid$(z$,i+1):goto1
  5. 9 poke53272,20:poke646,2
  6. 10 print"[147][157]";:w=pos(.)
  7. 11 print" none shall pass! ":print" [206][205][206][205]  [167]":print"[206][205][206][205][206][205] [186]":print"[205] [205][206] [206]":print" [205]  [206]":print"  [205][206]
  8. 12 [134]a$(99):[129]i[178]1[164]19:[135]a$(i):[130]:[129]i[178]20[164]90[169]10:[135]a$(i):[129]j[178]1[164]9:a$(i[170]j)[178]a$(i)[170]a$(j):[130]:[130]
  9. 20 z$[178]"none shall pass unless he answers me right. tell me your age":[141]1
  10. 21 [133]a%:[139]a%[179]2[176]a%[177]130[167]90
  11. 22 m[178]10:n[178]m:[139]a%[177]11[167]m[178]20:n[178]12:[139]a%[177]15[167]m[178]99
  12. 23 y$[178]"what is ":[139]a%[179]8[167]30
  13. 25 f1%[178][165]r(m):f2%[178][165]r(n)
  14. 26 z$[178]y$[170]a$(f1%)[170]" times "[170]a$(f2%):[141]1:[133]p:[139]p[179][177]f1%[172]f2%[167]90
  15. 30 t1%[178][165]r(m):t2%[178][165]r(t1%):[139]t2%[178]0[167]30
  16. 31 z$[178]y$[170]a$(t2%)[170]" from "[170]a$(t1%):[141]1:[133]s:[139]s[179][177]t1%[171]t2%[167]90
  17. 35 a1%[178][165]r(m):a2%[178][165]r(m):[139]a1%[170]a2%[178]0[167]35
  18. 36 z$[178]"tell me the sum of "[170]a$(a1%)[170]" and "[170]a$(a2%):[141]1:[133]a:[139]a[179][177]a1%[170]a2%[167]90
  19. 80 z$[178]"you may pass!":[141]1:[128]
  20. 90 z$[178]"that's not correct!":[141]1:[128]
  21. 100 [131]one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,thirteen,fourteen,fifteen,sixteen,seventeen,eighteen,nineteen
  22. 101 [131]twenty,thirty,fourty,fifty,sixty,seventy,eighty,ninety
  23.